Appendix A: 



Precalculation data processing: 
@FOpen 'c:\tanager\multis.txt*, 1 ,FileNum 
5 ©For i = 1 To ACs 
©FRead 

FileNum.EOF.AssetClassp.ll.AssetDesctiJl.AssetCategoryli.l] JotalAssetsPcttUlACAssetsToip^l.Appreciationti.ll^ividendtiJ], 
CapGainstax[i,1],Yield[ULCGDist[U]J^^ 

@lfTurnover[i,1] = 0.0 
10 ©Assign Tumover[i,1] = Horizon 

©Endlf 

©Assign YieldPlus1[i,1] = 1.0 + Yield[i,1] 
@rem debug YieldPlus1[i,1] + ' = ' + '1.0' + 1 + ' + Yield[i,1] 
©Assign YieldPlus1[i,1] = YieldPlus1[i,1] A Horizon 
1 5 ©rem debug YieldPlus1[i,1] + * = * + YieldPlus1[i,1] + ' A ' + Horizon 

©Assign HorizonMinusI = Horizon - 1 
©Assign DividendPlus1[i,1] = Dividend[i,1] + 1.0 
©Assign AppreciationPlus1[i,1] = Appreciation[i,1] + 1.0 

©Assign ValueAfterTaxMult[i,1] = (Appreciation^] + (Dividend[i,1] - (Dividend[i,1] * TaxBracket[i,1])) + (CGDist[i,1] - 
20 (CGDist[i,1] * CapGainstax[i,1]))) 

©rem debug Value AfterTaxMult[i,1] 

©Assign ValueAfterTaxMultPlus1[i,1] = 1.0 + ValueAfterTaxMult[i,1] 
©Assign ValueAfterTaxMultPlus1[i,1] = ValueAfterTaxMultPlus1[i,1] A Horizon 
©rem debug ValueAfterTaxMultPlus1[i,1] 
25 ©Assign StockRate[i,1] = Appreciation^ ] + Dividend[i,1] + CGDist[i,1] 

©Assign StockRatePlus1[i,1] = StockRate[i,1] + 1.0 
©Assign StockRatePlus1[i,1] = StockRatePlus1[i,1] A Horizon 

©Assign StockApprRateOnGoing[i,1] = Appreciation^, 1] - (Appreciation]), 1] * CapGainstax[i,1]) 

©Assign StockApprRateOnGoingPlus1[i,1] = StockApprRateOnGoing[i,1] + 1.0 
30 ©Assign StockDivRateOnGoing[i,1] = Dividend[i,1] - (Dividend[i,1] * TaxBracket[i,1]) 

©Assign StockDivRateOnGoingPlus1[i,1] = StockDivRateOnGoing[i,1] + 1.0 

©Assign StockGrowthRateOnGoing[i,1] = Appreciation^ ] + StockDivRateOnGoing[i,1] 

©Assign StockGrowthRateOnGoingPlus1[j,1] = StockGrowthRateOnGomg[i,1] + 1.0 

©Assign BondRateOnGoing[i,1] = Yield[i,1] - (Yield[i,1] * TaxBracket[i,1]) 
35 ©debug BondRateOnGoing[i,1] + ' = ' + Yie!d[i,1] + '-(' + Yield[i,1] + ' * 1 + TaxBracket[i,1] + ')' 

©Assign BondRateOnGoingPlus1[i,1] = BondRateOnGoing[i,1] + 1.0 

©debug BondRateOnGomgPlus1[i,1] + ' = ' + BondRateOnGoing[i,1] + * + ' + '1.0' 

©Assign BondRateOnGoingPlus1[i ? 1] = BondRateOnGoingPlus1[i,1] A Horizon 

©debug BondRateOnGoingPlus1[i,1] + ' = ' + BondRateOnGoingPlus1[i,1] + * A ' + Horizon 
40 ©rem debug AssetClass[i,1] + ' ' + AssetDesc[i,1] + " + TotalAssetsPct[i,1] + ' * + ACAssetsTol[i,1] + " + Appreciations, 1] + " + 

Dividend[i,1] + ' 1 + CapGainstax[i,1] + " + Yield[i,1] + ' ' + AssetCategory[i,1] + " + CGDist[i,1] + " + TaxBracket[i,1] + ' ' + Cltjd + 
' ' + Turnover[i,1] + " + CurrTax[i\1] + " + CurrTaxDefp } 1] 
©Next I 



45 Initialization 



©rem debug 'Starting Initialisation...' 
©DelFile 'C:\tanager\results.txt', 1 

50 ©Assign Lethal Value = 0.0 

©Assign ACsMinusI = ACs - 1 
©Assign Tmax = TotalAssets - TDmax 
©Assign ValueBest = 0.0 

55 ©Do AllocateClasses_prc 

©Do CurrentValue_prc 

©Do Write! mtial_prc 
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AllocateClasses_prc 



©rem **** PERCENT OF ASSETS IN EACH ASSET CLASS 
©For i = 1 To ACs 
5 ©Assign ACAssets[i,1] = TotalAssets * TotalAssetsPct[i,1] 

@rem debug ACAssets[i,1] + ' = ' + TotalAssets + ' * ' + TotalAssetsPct[i,1] 
©Next I 



CurrentValue_prc 

10 ©rem debug ***** DETERMINE VALUE OF CLIENT CURRENT ALLOCATION' 
©Fori = 1 To ACs 
©Assign ACT[i 5 1] = CurrTax[i,1] 
©Assign ACTD[i,1] = CurrTaxDef[i,1] 
©rem debug ACT[i,1] + ' ' + ACTD[i,1] 
1 5 ©Next 
i 

©rem debug 'Doing ValueForCurrent_prc' 
©Do ValueForCurrent_prc 

20 ©For i = 1 To ACs 

©Assign ACTCurrBest[i,1] = ACTBest[i t 1] 
©Assign ACTDCurrBest[i,1] = ACTDBest[i,1] 
©Assign ACValueCurrBest[i,1] = ACValueBest[i,1] 

©rem debug ACTCurrBest[i,1] + " + ACTDCurrBest[i,1] + " + ACValueCurrBest[i,1] 
25 ©Next i 

©Assign ValueCurrBest = ValueBest 
©rem debug ValueCurrBest 

©rem debug '**** REINITIALIZE' 
30 ©Assign ValueBest = 0.0 
©For i = 1 To ACs 
©If AssetDesc[i,1] = 'Municipal' 
©Assign ACT[i,1] = ACTD[i,1] + ACT[i,1] 
©Assign ACTD[i,1] = 0.0 
35 ©Endlf 

©Clear Value 
©rem InitArray ACT 
©rem InitArray ACTD 
©InitArray ACTBest 
40 ©InitArray ACTDBest 

©InitArray ACValueBest 



Writelnitial_prc 

©rem **** WRITE INITIAL GENERATION FILE 
45 ©FOpen 'cAtanagerVinitgen.txt', 2, FileNum 

©rem for k = 1 To 50 

©Assign ACInit[1,1] = CurrTaxDef[i,1] 
50 ©Str ACInit[1,1] , StgNum 
©Assign InitGen = StgNum 

©For i = 2 To ACs 

©Assign AClnitp.1] = CurrTaxDef[i,1] 
55 ©Str ACInit[i,1] , StgNum 

©Assign InitGen = InitGen + \ 1 + StgNum 
©Next i 

©FWrite FileNum, InitGen 

60 
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@rem Next k 
@FCIose FileNum 



Value Function 

©Assign Value = 0.1 

©rem **** The GA generates values for ACTD, and we calculate ACT 
@For 1 = 1 To ACs 

©Assign ACT[i,l] = ACAssets[i,l] - ACTD[i,l] 

@rem debug ACT[i,l] + ' = ' + ACAssets[i,l] + ' - ' + ACTD[i,l] 
@Next i 

@Do Lethaljprc 

@Assign Terminate = *No' 
@IF Value <> LethalValue 
@rem **** Loop through all Asset Classes 
@For i = 1 To ACs 

@rem **** Check for Stock or Bond 
@If AssetCategory[i,l] = 'Stock' 

@Do Value Stock_prc 
@Else 

@Do ValueBond_prc 
©Endlf 

©Assign Value = Value + ACValue[i,l] 

©rem debug 'i = ' + i + #10 + 'ACTD[i,l ] = ' + ACTD[i,l] + #10 + 'ACT[i,l] = ' + ACT[i,l] + #10 + 'Value = + Value + ValueBest 
+ ValueBest 

frem debug 'i = • + i + #10 + 'ACTD^l] = ' + ACTD[U] + #10 + 'ACT[.,1] = ' + ACT[i,l] + #10 + 'Value = ' + Value + ' ValueBest = ' + 
ValueBest 

@IF (Value <> LethalValue) AND (Value > ValueBest) 
©Assign ValueBest = Value 
@For i - 1 To ACs 

©Assign ACTBest[i,l] - ACT[i,l] 
©Assign ACTDBest[i,l] = ACTD[i,l] 
©Assign ACValueBest[i,l] = ACValue[i,l] 
©Next i 
©Endif 
©ENDIF 



Lethal_prc Procedure 

©Assign Terminate = 'No' 

©Assign TDTota! = 0.0 

@For i = 1 To ACs 

@lf (ACTDp.l] < 0) or (ACTD[i,1] > ACAssets[i,1]) 

©Assign Terminate = 'Yes' 
©Else 

©Assign TDTota I = TDTotal + ACTD[i,1] 
©Endlf 

©Next i 

©rem if (TaxBracket[i,1] = 0) and (ACTD[i,1] <> ACAssetsfl.t]) 

©rem Assign Value = LethalValue 
©rem Endlf 

©If (TDTotal > TDmax) OR (Terminate = 'Yes') 
©Assign Value = LethalValue 
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@Endlf 



ValueStock_prc Procedure 

@rem **** COMPUTE SIMPLE FUTURE VALUE 

©Assign ACTDBase[i,1] = ACTD[i,1] * StockRateP!us1[i,1] 

@lf Turnover[i,1] = Horizon 
@rem '**** TAXABLE STOCKS' 

10 

©If OptMethod = 'Liq' 
©rem **COMPUTE BASE VALUE AT HORIZON 
©Assign BaseValue[i,1] = 1+Appreciation[i,1]+Dividend[i,1]+CGDist[i,1] 
©Assign BaseValue[i,1] = ACT[i,1] * BaseValue[i,1] A Horizon 

15 

©rem ** COMPUTE TAXABLE CAPITAL GAIN 

©Assign AppreciationValue[i,1] - (1+Appreciation[i,1]+CGDist[i,1]) 

©Assign AppreciationValue[i,1] = ACT[i,1] * Appreciation Value[i,1] A Horizon 

20 ©rem ** COMPUTE CAP GAINS TAX 

©Assign CapGainOnTaxableStocks[i,1] = AppreciationValue[i,1] * CapGainstax[i,1] 

©rem ** COMPUTE DIVIDENDS 
©Assign DividendVal[i,1] = Dividend * TaxBracket 
25 ©Assign DividendVal[i,1] = 1 + Dividend - DividendVal[i,1] 

©Assign DividendVal[i,1] = ACT[i,1] * DividendVal[i,1] A Honzon 

©rem **** COMPUTE ACTUAL VALUE OF TAXABLE STOCKS 

©Assign ACTValue[i,1] - AppreciationValue[i,1] - CapGainOnTaxableStocks[i,1] + DividendVai[i,1] 
30 ©rem debug ' ACT[i,1]: ' + ACT[i,1] + #10 + ' BaseValue[i,1]: 1 + BaseValue[i,1] + #10 + ' AppreciationValue[i,1]: ' + 

AppreciationValue[i,1] + #10 + ' CapGainstax[i,1]: ' + CapGainstax[i,1] + #10 + ' CapGainOnTaxableStocks[i,1]]. ' + 
CapGainOnTaxableStocks[i,1] + #10 + ' DividendVal[i,1]: ' + DividendVal[i,1] + #10 + ' ACTValue[i,1]: ' + ACTValue[i,1] 

©Else 

35 ©Assign ACTValue[i,1] = ACT[i,1] * ValueAfterTaxMultPlus1[i,1] 

©Endlf 
©Else 

©DO TurnOver_prc 
©Endlf 

40 

©rem **** TAX DEFERRED STOCKS 
©If OptMethod = 'Liq' 

©Assign TaxOnTaxDefStocks[i,1] = ACTDBase[i,1] * TaxBracket[i,1] 

©Assign ACTDValue[i,1] = ACTDBase[i,1] - TaxOnTaxDefStocks[i,1] 
45 ©Else 

©Assign ACTDValue[i,1] = ACTDBase[i,1] 
©Endlf 

©rem **** FINAL VALUE 
50 ©Assign ACValue[i,1] = ACTValue[i,1] + ACTDValuep.1] 



ValueBond__prc Procedure 

©rem COMPUTE SIMPLE FUTURE VALUE 

55 ©Assign ACTDBase[i,1] = ACTD[i,1] * YieldPlus1[i,1] 

©rem **** TAXABLE BONDS 
©If OptMethod = 'Liq' 

©Assign ACTValue[i,1] = ACT[i,1] * BondRateOnGoingPlus1[i,1] 
60 ©rem debug i + ': ' + ACTVaiue[i,1] + 1 = 1 + ACT[i,1] + ' * 1 + BondRateOnGoingPlus1[i,1] 

©rem Assign ACTTax[i,1] = (ACTValue[i,1] - ACT[i,1]) * TaxBracket[i,1] 

©rem Assign ACTValue[i,1] = ACTValue[i,1] - ACTTax[i,1] 
©Else 
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©Assign ACTValue[i,1] = ACT[t,1] * BondRateOnGoingPlus1[i,1] 
@Endlf 

@rem **** TAX DEFERRED BONDS 
5 @lf OptMethod = 'Liq' 

©Assign ACTDTax[i,1] = ACTDBase[i,1] * TaxBracket[i,1] 
©Assign ACTDVaiue[i,1] = ACTDBase[t,1] - ACTDTax[i,1] 
©rem debug ACTDTax[i,l] + ' = ' + ACTDBase[i,1] + ' * ' + TaxBracket[i,1] 
10 ©rem debug ACTDValue[i,1] + ' = ' + ACTDBase[i,1] + 1 - ' + ACTDTax[i,1] 

©Else 

©Assign ACTDVaSue[i,1] = ACTDBase[i,1] 
©Endlf 

15 ©rem **** FINAL VALUE 

©Assign ACValue[i,1] = ACTValue[i,1] + ACTDVaiue[i,1] 

©rem debug ACVaIue[i,1] + • = ' + ACTValue[i,1] + ' + ' + ACTDValue[i,1] 
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